home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSCCLC.for < prev    next >
Text File  |  1991-04-13  |  381b  |  16 lines
  1.         SUBROUTINE GSCCLC(X,Y,DX,DY)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y,DX,DY,XS,YS
  4. C
  5. C       THIS SUBROUTINE DOES THE CHARACTER SIZING AND ROTATION.
  6. C
  7.         INCLUDE DIGLIB$KOM:GCCPAR.PRM
  8.         INCLUDE DIGLIB$KOM:GCCOFF.PRM
  9. C
  10.         XS = X*CSIZE
  11.         YS = Y*CSIZE
  12.         DX = CCOS*XS + CSIN*YS + XOFF
  13.         DY = CCOS*YS - CSIN*XS + YOFF
  14.         RETURN
  15.         END
  16.